score <- function(input) {
    return((subroutine0(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.0351) - (input[1])) ^ (2.0)) + (((95.0) - (input[2])) ^ (2.0))) + (((2.68) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.4161) - (input[5])) ^ (2.0))) + (((7.853) - (input[6])) ^ (2.0))) + (((33.2) - (input[7])) ^ (2.0))) + (((5.118) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((224.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((392.78) - (input[12])) ^ (2.0))) + (((3.81) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine0 <- function(input) {
    return((subroutine1(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((18.0846) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.679) - (input[5])) ^ (2.0))) + (((6.434) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.8347) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((27.25) - (input[12])) ^ (2.0))) + (((29.05) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine1 <- function(input) {
    return((subroutine2(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.98843) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.813) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((4.0952) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((394.54) - (input[12])) ^ (2.0))) + (((19.88) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine2 <- function(input) {
    return((subroutine3(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((10.8342) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.679) - (input[5])) ^ (2.0))) + (((6.782) - (input[6])) ^ (2.0))) + (((90.8) - (input[7])) ^ (2.0))) + (((1.8195) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((21.57) - (input[12])) ^ (2.0))) + (((25.79) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine3 <- function(input) {
    return((subroutine4(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.22358) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.605) - (input[5])) ^ (2.0))) + (((6.943) - (input[6])) ^ (2.0))) + (((97.4) - (input[7])) ^ (2.0))) + (((1.8773) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((363.43) - (input[12])) ^ (2.0))) + (((4.59) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine4 <- function(input) {
    return((subroutine5(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((6.53876) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.631) - (input[5])) ^ (2.0))) + (((7.016) - (input[6])) ^ (2.0))) + (((97.5) - (input[7])) ^ (2.0))) + (((1.2024) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((392.05) - (input[12])) ^ (2.0))) + (((2.96) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine5 <- function(input) {
    return((subroutine6(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.18337) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((27.74) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.609) - (input[5])) ^ (2.0))) + (((5.414) - (input[6])) ^ (2.0))) + (((98.3) - (input[7])) ^ (2.0))) + (((1.7554) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((711.0) - (input[10])) ^ (2.0))) + (((20.1) - (input[11])) ^ (2.0))) + (((344.05) - (input[12])) ^ (2.0))) + (((23.97) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine6 <- function(input) {
    return((subroutine7(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.03578) - (input[1])) ^ (2.0)) + (((20.0) - (input[2])) ^ (2.0))) + (((3.33) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.4429) - (input[5])) ^ (2.0))) + (((7.82) - (input[6])) ^ (2.0))) + (((64.5) - (input[7])) ^ (2.0))) + (((4.6947) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((216.0) - (input[10])) ^ (2.0))) + (((14.9) - (input[11])) ^ (2.0))) + (((387.31) - (input[12])) ^ (2.0))) + (((3.76) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine7 <- function(input) {
    return((subroutine8(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((45.7461) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((4.519) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.6582) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((88.27) - (input[12])) ^ (2.0))) + (((36.98) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine8 <- function(input) {
    return((subroutine9(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((2.01019) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.605) - (input[5])) ^ (2.0))) + (((7.929) - (input[6])) ^ (2.0))) + (((96.2) - (input[7])) ^ (2.0))) + (((2.0459) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((369.3) - (input[12])) ^ (2.0))) + (((3.7) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine9 <- function(input) {
    return((subroutine10(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((7.67202) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.747) - (input[6])) ^ (2.0))) + (((98.9) - (input[7])) ^ (2.0))) + (((1.6334) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((393.1) - (input[12])) ^ (2.0))) + (((19.92) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine10 <- function(input) {
    return((subroutine11(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.46336) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.605) - (input[5])) ^ (2.0))) + (((7.489) - (input[6])) ^ (2.0))) + (((90.8) - (input[7])) ^ (2.0))) + (((1.9709) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((374.43) - (input[12])) ^ (2.0))) + (((1.73) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine11 <- function(input) {
    return((subroutine12(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.61282) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((6.096) - (input[6])) ^ (2.0))) + (((96.9) - (input[7])) ^ (2.0))) + (((3.7598) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((248.31) - (input[12])) ^ (2.0))) + (((20.34) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine12 <- function(input) {
    return((subroutine13(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((67.9208) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.683) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.4254) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((384.97) - (input[12])) ^ (2.0))) + (((22.98) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine13 <- function(input) {
    return((subroutine14(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((22.5971) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.7) - (input[5])) ^ (2.0))) + (((5.0) - (input[6])) ^ (2.0))) + (((89.5) - (input[7])) ^ (2.0))) + (((1.5184) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((31.99) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine14 <- function(input) {
    return((subroutine15(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((14.2362) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((6.343) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.5741) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((20.32) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine15 <- function(input) {
    return((subroutine16(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.25387) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((6.91) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.448) - (input[5])) ^ (2.0))) + (((5.399) - (input[6])) ^ (2.0))) + (((95.3) - (input[7])) ^ (2.0))) + (((5.87) - (input[8])) ^ (2.0))) + (((3.0) - (input[9])) ^ (2.0))) + (((233.0) - (input[10])) ^ (2.0))) + (((17.9) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((30.81) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine16 <- function(input) {
    return((subroutine17(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.01501) - (input[1])) ^ (2.0)) + (((90.0) - (input[2])) ^ (2.0))) + (((1.21) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.401) - (input[5])) ^ (2.0))) + (((7.923) - (input[6])) ^ (2.0))) + (((24.8) - (input[7])) ^ (2.0))) + (((5.885) - (input[8])) ^ (2.0))) + (((1.0) - (input[9])) ^ (2.0))) + (((198.0) - (input[10])) ^ (2.0))) + (((13.6) - (input[11])) ^ (2.0))) + (((395.52) - (input[12])) ^ (2.0))) + (((3.16) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine17 <- function(input) {
    return((subroutine18(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((9.91655) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.852) - (input[6])) ^ (2.0))) + (((77.8) - (input[7])) ^ (2.0))) + (((1.5004) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((338.16) - (input[12])) ^ (2.0))) + (((29.97) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine18 <- function(input) {
    return((subroutine19(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.31533) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((6.2) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.504) - (input[5])) ^ (2.0))) + (((8.266) - (input[6])) ^ (2.0))) + (((78.3) - (input[7])) ^ (2.0))) + (((2.8944) - (input[8])) ^ (2.0))) + (((8.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((17.4) - (input[11])) ^ (2.0))) + (((385.05) - (input[12])) ^ (2.0))) + (((4.14) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine19 <- function(input) {
    return((subroutine20(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.83377) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.605) - (input[5])) ^ (2.0))) + (((7.802) - (input[6])) ^ (2.0))) + (((98.2) - (input[7])) ^ (2.0))) + (((2.0407) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((389.61) - (input[12])) ^ (2.0))) + (((1.92) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine20 <- function(input) {
    return((subroutine21(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.38799) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.95) - (input[6])) ^ (2.0))) + (((82.0) - (input[7])) ^ (2.0))) + (((3.99) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((232.6) - (input[12])) ^ (2.0))) + (((27.71) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine21 <- function(input) {
    return((subroutine22(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.01538) - (input[1])) ^ (2.0)) + (((90.0) - (input[2])) ^ (2.0))) + (((3.75) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.394) - (input[5])) ^ (2.0))) + (((7.454) - (input[6])) ^ (2.0))) + (((34.2) - (input[7])) ^ (2.0))) + (((6.3361) - (input[8])) ^ (2.0))) + (((3.0) - (input[9])) ^ (2.0))) + (((244.0) - (input[10])) ^ (2.0))) + (((15.9) - (input[11])) ^ (2.0))) + (((386.34) - (input[12])) ^ (2.0))) + (((3.11) - (input[13])) ^ (2.0))))) * (0.7500000000002167)))
}
subroutine22 <- function(input) {
    return((subroutine23(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.01381) - (input[1])) ^ (2.0)) + (((80.0) - (input[2])) ^ (2.0))) + (((0.46) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.422) - (input[5])) ^ (2.0))) + (((7.875) - (input[6])) ^ (2.0))) + (((32.0) - (input[7])) ^ (2.0))) + (((5.6484) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((255.0) - (input[10])) ^ (2.0))) + (((14.4) - (input[11])) ^ (2.0))) + (((394.23) - (input[12])) ^ (2.0))) + (((2.97) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine23 <- function(input) {
    return((subroutine24(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((2.77974) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.871) - (input[5])) ^ (2.0))) + (((4.903) - (input[6])) ^ (2.0))) + (((97.8) - (input[7])) ^ (2.0))) + (((1.3459) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((29.29) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine24 <- function(input) {
    return((subroutine25(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((9.2323) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.631) - (input[5])) ^ (2.0))) + (((6.216) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.1691) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((366.15) - (input[12])) ^ (2.0))) + (((9.53) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine25 <- function(input) {
    return((subroutine26(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.06129) - (input[1])) ^ (2.0)) + (((20.0) - (input[2])) ^ (2.0))) + (((3.33) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.4429) - (input[5])) ^ (2.0))) + (((7.645) - (input[6])) ^ (2.0))) + (((49.7) - (input[7])) ^ (2.0))) + (((5.2119) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((216.0) - (input[10])) ^ (2.0))) + (((14.9) - (input[11])) ^ (2.0))) + (((377.07) - (input[12])) ^ (2.0))) + (((3.01) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine26 <- function(input) {
    return((subroutine27(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.25179) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.57) - (input[6])) ^ (2.0))) + (((98.1) - (input[7])) ^ (2.0))) + (((3.7979) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((376.57) - (input[12])) ^ (2.0))) + (((21.02) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine27 <- function(input) {
    return((subroutine28(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((4.89822) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.631) - (input[5])) ^ (2.0))) + (((4.97) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.3325) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((375.52) - (input[12])) ^ (2.0))) + (((3.26) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine28 <- function(input) {
    return((subroutine29(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.13081) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.713) - (input[6])) ^ (2.0))) + (((94.1) - (input[7])) ^ (2.0))) + (((4.233) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((360.17) - (input[12])) ^ (2.0))) + (((22.6) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine29 <- function(input) {
    return((subroutine30(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.33147) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((6.2) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.507) - (input[5])) ^ (2.0))) + (((8.247) - (input[6])) ^ (2.0))) + (((70.4) - (input[7])) ^ (2.0))) + (((3.6519) - (input[8])) ^ (2.0))) + (((8.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((17.4) - (input[11])) ^ (2.0))) + (((378.95) - (input[12])) ^ (2.0))) + (((3.95) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine30 <- function(input) {
    return((subroutine31(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.52693) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((6.2) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.504) - (input[5])) ^ (2.0))) + (((8.725) - (input[6])) ^ (2.0))) + (((83.0) - (input[7])) ^ (2.0))) + (((2.8944) - (input[8])) ^ (2.0))) + (((8.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((17.4) - (input[11])) ^ (2.0))) + (((382.0) - (input[12])) ^ (2.0))) + (((4.63) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine31 <- function(input) {
    return((subroutine32(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.35472) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((6.072) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((4.175) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((376.73) - (input[12])) ^ (2.0))) + (((13.04) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine32 <- function(input) {
    return((subroutine33(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.57834) - (input[1])) ^ (2.0)) + (((20.0) - (input[2])) ^ (2.0))) + (((3.97) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.575) - (input[5])) ^ (2.0))) + (((8.297) - (input[6])) ^ (2.0))) + (((67.0) - (input[7])) ^ (2.0))) + (((2.4216) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((264.0) - (input[10])) ^ (2.0))) + (((13.0) - (input[11])) ^ (2.0))) + (((384.54) - (input[12])) ^ (2.0))) + (((7.44) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine33 <- function(input) {
    return((subroutine34(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.08187) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((2.89) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.445) - (input[5])) ^ (2.0))) + (((7.82) - (input[6])) ^ (2.0))) + (((36.9) - (input[7])) ^ (2.0))) + (((3.4952) - (input[8])) ^ (2.0))) + (((2.0) - (input[9])) ^ (2.0))) + (((276.0) - (input[10])) ^ (2.0))) + (((18.0) - (input[11])) ^ (2.0))) + (((393.53) - (input[12])) ^ (2.0))) + (((3.57) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine34 <- function(input) {
    return((subroutine35(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.02009) - (input[1])) ^ (2.0)) + (((95.0) - (input[2])) ^ (2.0))) + (((2.68) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.4161) - (input[5])) ^ (2.0))) + (((8.034) - (input[6])) ^ (2.0))) + (((31.9) - (input[7])) ^ (2.0))) + (((5.118) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((224.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((390.55) - (input[12])) ^ (2.0))) + (((2.88) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine35 <- function(input) {
    return((subroutine36(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.61154) - (input[1])) ^ (2.0)) + (((20.0) - (input[2])) ^ (2.0))) + (((3.97) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.647) - (input[5])) ^ (2.0))) + (((8.704) - (input[6])) ^ (2.0))) + (((86.9) - (input[7])) ^ (2.0))) + (((1.801) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((264.0) - (input[10])) ^ (2.0))) + (((13.0) - (input[11])) ^ (2.0))) + (((389.7) - (input[12])) ^ (2.0))) + (((5.12) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine36 <- function(input) {
    return((subroutine37(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((3.32105) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.871) - (input[5])) ^ (2.0))) + (((5.403) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.3216) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((26.82) - (input[13])) ^ (2.0))))) * (-0.400989603367655)))
}
subroutine37 <- function(input) {
    return((subroutine38(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.29819) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((6.2) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.504) - (input[5])) ^ (2.0))) + (((7.686) - (input[6])) ^ (2.0))) + (((17.0) - (input[7])) ^ (2.0))) + (((3.3751) - (input[8])) ^ (2.0))) + (((8.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((17.4) - (input[11])) ^ (2.0))) + (((377.51) - (input[12])) ^ (2.0))) + (((3.92) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine38 <- function(input) {
    return((subroutine39(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.51902) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((19.58) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.605) - (input[5])) ^ (2.0))) + (((8.375) - (input[6])) ^ (2.0))) + (((93.9) - (input[7])) ^ (2.0))) + (((2.162) - (input[8])) ^ (2.0))) + (((5.0) - (input[9])) ^ (2.0))) + (((403.0) - (input[10])) ^ (2.0))) + (((14.7) - (input[11])) ^ (2.0))) + (((388.45) - (input[12])) ^ (2.0))) + (((3.32) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine39 <- function(input) {
    return((subroutine40(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((5.66998) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.631) - (input[5])) ^ (2.0))) + (((6.683) - (input[6])) ^ (2.0))) + (((96.8) - (input[7])) ^ (2.0))) + (((1.3567) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((375.33) - (input[12])) ^ (2.0))) + (((3.73) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine40 <- function(input) {
    return((subroutine41(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((8.26725) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((1.0) - (input[4])) ^ (2.0))) + (((0.668) - (input[5])) ^ (2.0))) + (((5.875) - (input[6])) ^ (2.0))) + (((89.6) - (input[7])) ^ (2.0))) + (((1.1296) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((347.88) - (input[12])) ^ (2.0))) + (((8.88) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine41 <- function(input) {
    return((subroutine42(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((25.0461) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.987) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.5888) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((26.77) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine42 <- function(input) {
    return((subroutine43(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.05602) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((2.46) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.488) - (input[5])) ^ (2.0))) + (((7.831) - (input[6])) ^ (2.0))) + (((53.6) - (input[7])) ^ (2.0))) + (((3.1992) - (input[8])) ^ (2.0))) + (((3.0) - (input[9])) ^ (2.0))) + (((193.0) - (input[10])) ^ (2.0))) + (((17.8) - (input[11])) ^ (2.0))) + (((392.63) - (input[12])) ^ (2.0))) + (((4.45) - (input[13])) ^ (2.0))))) * (1.0)))
}
subroutine43 <- function(input) {
    return((subroutine44(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.38735) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((25.65) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.581) - (input[5])) ^ (2.0))) + (((5.613) - (input[6])) ^ (2.0))) + (((95.6) - (input[7])) ^ (2.0))) + (((1.7572) - (input[8])) ^ (2.0))) + (((2.0) - (input[9])) ^ (2.0))) + (((188.0) - (input[10])) ^ (2.0))) + (((19.1) - (input[11])) ^ (2.0))) + (((359.29) - (input[12])) ^ (2.0))) + (((27.26) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine44 <- function(input) {
    return((subroutine45(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((41.5292) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.531) - (input[6])) ^ (2.0))) + (((85.4) - (input[7])) ^ (2.0))) + (((1.6074) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((329.46) - (input[12])) ^ (2.0))) + (((27.38) - (input[13])) ^ (2.0))))) * (-0.3490103966325617)))
}
subroutine45 <- function(input) {
    return((subroutine46(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((24.8017) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.349) - (input[6])) ^ (2.0))) + (((96.0) - (input[7])) ^ (2.0))) + (((1.7028) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((19.77) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine46 <- function(input) {
    return((subroutine47(input)) + ((exp((-0.0000036459736698188483) * (((((((((((((((1.15172) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.701) - (input[6])) ^ (2.0))) + (((95.0) - (input[7])) ^ (2.0))) + (((3.7872) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((358.77) - (input[12])) ^ (2.0))) + (((18.35) - (input[13])) ^ (2.0))))) * (-1.0)))
}
subroutine47 <- function(input) {
    return((((25.346480984077544) + ((exp((-0.0000036459736698188483) * (((((((((((((((16.8118) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.7) - (input[5])) ^ (2.0))) + (((5.277) - (input[6])) ^ (2.0))) + (((98.1) - (input[7])) ^ (2.0))) + (((1.4261) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((30.81) - (input[13])) ^ (2.0))))) * (-1.0))) + ((exp((-0.0000036459736698188483) * (((((((((((((((38.3518) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((18.1) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.693) - (input[5])) ^ (2.0))) + (((5.453) - (input[6])) ^ (2.0))) + (((100.0) - (input[7])) ^ (2.0))) + (((1.4896) - (input[8])) ^ (2.0))) + (((24.0) - (input[9])) ^ (2.0))) + (((666.0) - (input[10])) ^ (2.0))) + (((20.2) - (input[11])) ^ (2.0))) + (((396.9) - (input[12])) ^ (2.0))) + (((30.59) - (input[13])) ^ (2.0))))) * (-1.0))) + ((exp((-0.0000036459736698188483) * (((((((((((((((0.84054) - (input[1])) ^ (2.0)) + (((0.0) - (input[2])) ^ (2.0))) + (((8.14) - (input[3])) ^ (2.0))) + (((0.0) - (input[4])) ^ (2.0))) + (((0.538) - (input[5])) ^ (2.0))) + (((5.599) - (input[6])) ^ (2.0))) + (((85.7) - (input[7])) ^ (2.0))) + (((4.4546) - (input[8])) ^ (2.0))) + (((4.0) - (input[9])) ^ (2.0))) + (((307.0) - (input[10])) ^ (2.0))) + (((21.0) - (input[11])) ^ (2.0))) + (((303.42) - (input[12])) ^ (2.0))) + (((16.51) - (input[13])) ^ (2.0))))) * (-1.0)))
}
